   1 .
   2 .
   3 .
   4 .
   5 .SPEED-O MATH
   6 .BY BOB  WISEMAN
  10 :return ;clear ;BC=65;FC=197
  20 print "ENTER +,-,div ,OR mul 
  30 Q=KP;S=0
  40 clear ;for N=1to 10;T=0;R=63
  50 gosub 100;gosub 400
  60 CX=-35;CY=35;S=S+T
  70 print "SCORE=",#4,S
  75 next N
  80 goto 20
 100 X=rnd (9);Y=rnd (9)
 105 if Q=43Z=X+Y;goto 200
 110 if Q=98Z=Xmul Y;goto 200
 115 if Q=45W=X+Y
 120 if Q=99W=Xmul Y
 125 Z=X;X=W
 200 A=20180;B=A;C=300;E=2
 210 D=-43;gosub C
 215 D=53;gosub C
 220 D=19521;gosub C
 225 D=20190;gosub C
 230 D=-13871;gosub C
 231 if R=63L=X;M=Y;O=Z
 232 if R<63X=L;Y=M;Z=O
 233 E=1;D=32;gosub C
 235 E=1;if X>9D=48+Xdiv 10;X=RM;gosub C
 240 D=48+X;gosub C
 245 D=32;gosub C
 250 D=Q;gosub C
 255 D=32;gosub C
 260 D=R;gosub C
 265 D=32;gosub C
 270 D=61;gosub C
 280 if Z>9D=48+Zdiv 10;Z=RM;gosub C
 285 D=48+Z;gosub C
 286 if L<10if O<10D=32;gosub C
 290 D=0;gosub C;CALLB;return 
 300 %(A)=D;A=A+E;return 
 400 I=&(23);J=&(22);K=&(21);T=T+1
 410 if I+J+K=0goto 400
 411 R=0;X=0
 415 W=I;gosub 430
 420 W=J;gosub 430
 425 W=K;gosub 430;goto 460
 430 if W=8X=1
 435 if W=4X=4
 440 if W=2X=7
 445 if W X=X+R
 450 R=R+1;return 
 460 R=Y+48;U=X;gosub 200;NT=0;&(16)=75;&(22)=-1
 465 if M=Ugoto 500
 470 T=T+300;for I=55to 255step 5
 475 &(18)=I;&(17)=Idiv 2;next I
 480 goto 580
 500 for I=200to 1step -5
 505 &(18)=I;&(17)=Idiv 2;next I
 580 T=200-T;NT=2;&(17)=0;&(18)=0
 595 return 